home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 132 / 132.d81 / b.fgm v6 bootdem (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  73 lines
  1. 0 rem fgmz
  2. 2 poke53281,06:poke53280,14:poke808,239
  3. 4 b=6797:s$="         ":s$=s$+s$+s$+s$:df=00:sysb:poke198,.:goto10
  4. 6 poke198,.:wait198,1:geta$:return
  5. 8 poke631,13:poke632,13:poke198,2
  6. 10 print"[147]";:poke4830,df:sys4789:k=(peek(2)/40)+1:ifk>1then14
  7. 12 sys4692:gosub6:a=.:ifa$="y"thena=1
  8. 14 onkgoto16,18,20,24,24
  9. 16 poke2,a:sys6684:end
  10. 18 print"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-1-[146]":df=40:goto112
  11. 20 print"[147][144][145][145]","-[204][207][193][196][201][206][199] [196][207][195][211]-2-[146]":df=80:goto118
  12. 22 sys4656:end
  13. 24 sys58260:end
  14. 26 pl=peek(13824):print"[145]"s$:goto28
  15. 28 c$="[145]":print"[145][145]";s$:print"[145]      [207][213][212][208][213][212] [212][207] [211][195][210][197][197][206] [207][210] [208][210][201][206][212][197][210]?      "
  16. 30 print,"[208][210][197][211][211] '[198]1' [198][207][210] [211][195][210][197][197][206]":prints$
  17. 32 print,"[145][208][210][197][211][211] '[208]' [198][207][210] [208][210][201][206][212][197][210]":prints$
  18. 34 print,"[145][208][210][197][211][211] '[195]' [212][207] [195][193][206][195][197][204]"
  19. 36 sysb:gosub104:poke2,.:ifa$="[133]"thenpoke7015,255:goto74
  20. 38 ifa$="p"thenpoke7015,163:goto46
  21. 40 ifa$="c"then8
  22. 42 goto36
  23. 44 poke7015,255:goto74
  24. 46 print"[145][145][145][145][145][145]"s$:print"[145][145]   [208][210][201][206][212]-[207][213][212] [215][201][204][204] [212][193][203][197] [193][194][207][213][212]";int(pl/3)"[157] [211][200][197][197][212][211]  [144]"
  25. 48 prints$:print,"[157][145][145][204][197][198][212]/[210][201][199][200][212] [211][201][196][197] [204]/[210]?  [157]";:gosub6:ifa$="r"thenpoke2,40:goto54
  26. 50 ifa$="c"then8
  27. 52 a$="[204]"
  28. 54 c$="[145]":printa$:print"    [208][210][197][211][211] [210][197][212][213][210][206][146] [215][200][197][206] [210][197][193][196][217] [212][207] [208][210][201][206][212]":prints$
  29. 56 sysb:gosub104:ifa$=chr$(13)then62
  30. 58 ifa$="c"then8
  31. 60 goto56
  32. 62 open15,4,15:close15:ifst=.then70
  33. 64 sysb:print"[147]","  [208][210][201][206][212][197][210] [206][207][212] [208][210][197][211][197][206][212]":print,"[208][210][197][211][211] '[208]' [212][207][160][212][210][217] [193][206][217][215][193][217]"
  34. 66 print,"-[193][206][217] [207][212][200][197][210] [203][197][217] [198][207][210] [205][197][206][213]-":gosub6:ifa$="p"then70
  35. 68 goto8
  36. 70 poke251,22:poke252,54:print,"[211][200][207][213][204][196] [194][197] [208][210][201][206][212][201][206][199]":open1,4,7:cmd1
  37. 72 forx=1topl:sys5968:next:print#1:close1:goto8
  38. 74 print"[147][144]";:poke650,128:poke251,22:poke252,54
  39. 76 sys7004:p=1:p$="[208][193][199][197]":m$="[205][207][210][197]":r$="[144]"
  40. 78 r$="[144]":gosub128:gosub136:ifa$="s"thenpoke53281,peek(53281)+1and15
  41. 80 ifa$<>"[133]"thenifa$<>"[134]"thenifa$<>""thenifj=3then78
  42. 82 ifa$=""then8
  43. 84 ifp>.thensys6864:print"";
  44. 86 ifa$="[133]"orj=2thenp=p+1:ifp<pl+1thensys7004
  45. 88 ifa$="[134]"orj=1thenp=p-1:ifp>0thensys6954
  46. 90 ifp=plthensysb:poke198,.:goto96
  47. 92 ifp=.then8
  48. 94 goto78
  49. 96 p$="[204][193][211][212][144]":m$="[205][197][206][213][144]":r$="":gosub128
  50. 98 gosub136:ifa$="[133]"then8
  51. 100 ifa$="[134]"thenp$="[208][193][199][197]":m$="[205][207][210][197]":goto84
  52. 102 goto98
  53. 104 prints$:forx=.to50:geta$:ifa$>""thenprint"[145]";:goto110
  54. 106 next:print,"[145][208][204][197][193][211][197] [211][197][204][197][195][212][146]"c$:forx=0to400
  55. 108 geta$:ifa$=""thennext:goto104
  56. 110 x=999:next:prints$:print"[145]";:return
  57. 112 iffi=.thensys6923:gosub126:ife<19thenfi=1:fa=.
  58. 114 iffithen26
  59. 116 goto122
  60. 118 iffa=.thensys6931:gosub126:ife<19thenfa=1:fi=.
  61. 120 iffathen26
  62. 122 prints$:prints$:print"[145][196][201][211][203] [197][210][210][207][210][146]"e;b$;e2;e3:prints$:sysb
  63. 124 print"     -[208][210][197][211][211] [193][206][217] [203][197][217] [198][207][210] [204][207][193][196] [205][197][206][213]-":gosub6:goto8
  64. 126 open15,8,15:input#15,e,b$,e2,e3:print#15,"i0":close15:return
  65. 128 q$="":ifp>9thenq$="[157]"
  66. 130 poke214,20:print"[144]":print"  "r$"[176][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][174]"
  67. 132 print"  "r$"[221] "q$p$p"[157] [221] [198]1 [198][207][210] "m$" [221] [198]3 [199][207] [194][193][195][203][221]"
  68. 134 print"  "r$"[173][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][189]":return
  69. 136 printtab(13)"[144][145][145]           ":forx=0to60:next:printtab(13)"[145][198]1 [198][207][210] "m$""
  70. 138 forx=0to600:geta$:j=peek(56320)and3:ifa$>""orj<3thenx=999
  71. 140 next:return
  72. 142 rem**
  73.